home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / mcbar / pictured.fr_ / pictured.fr (.txt)
Encoding:
Visual Basic Form  |  1998-02-02  |  9.3 KB  |  270 lines
  1. VERSION 5.00
  2. Object = "{CD8DBB13-94EE-11D1-921D-006097A8F11E}#6.0#0"; "mcBar1.ocx"
  3. Begin VB.Form frmPicturedProgressBar 
  4.    Caption         =   "Pictured Progress Bar"
  5.    ClientHeight    =   3285
  6.    ClientLeft      =   60
  7.    ClientTop       =   345
  8.    ClientWidth     =   8835
  9.    ScaleHeight     =   3285
  10.    ScaleWidth      =   8835
  11.    StartUpPosition =   2  'CenterScreen
  12.    Begin VB.CommandButton Command1 
  13.       Caption         =   "&Start"
  14.       Height          =   915
  15.       Index           =   2
  16.       Left            =   7740
  17.       TabIndex        =   7
  18.       Top             =   1980
  19.       Width           =   1005
  20.    End
  21.    Begin VB.CommandButton Command1 
  22.       Caption         =   "&Start"
  23.       Height          =   465
  24.       Index           =   1
  25.       Left            =   7740
  26.       TabIndex        =   3
  27.       Top             =   1170
  28.       Width           =   1005
  29.    End
  30.    Begin VB.CommandButton Command1 
  31.       Caption         =   "&Start"
  32.       Height          =   465
  33.       Index           =   0
  34.       Left            =   7740
  35.       TabIndex        =   1
  36.       Top             =   360
  37.       Width           =   1005
  38.    End
  39.    Begin mcBar_by_The_MCR_Company.mcBar mcBar1 
  40.       Height          =   465
  41.       Index           =   0
  42.       Left            =   90
  43.       TabIndex        =   0
  44.       Top             =   360
  45.       Width           =   7485
  46.       _ExtentX        =   13203
  47.       _ExtentY        =   820
  48.       Blocks          =   1
  49.       Block.BarLeft(1)=   0
  50.       Block.Text(1)   =   "!h%!"
  51.       Block.TextColor(1)=   16777215
  52.       BeginProperty Block.TextFont(1) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  53.          Name            =   "MS Sans Serif"
  54.          Size            =   8.25
  55.          Charset         =   0
  56.          Weight          =   400
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Block.Picture(1)=   "Pictured Progress Bar.frx":0000
  62.       Block.PictureAlignment(1)=   2
  63.       Object.Height          =   465
  64.       Object.Width           =   7485
  65.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  66.          Name            =   "MS Sans Serif"
  67.          Size            =   8.25
  68.          Charset         =   0
  69.          Weight          =   400
  70.          Underline       =   0   'False
  71.          Italic          =   0   'False
  72.          Strikethrough   =   0   'False
  73.       EndProperty
  74.    End
  75.    Begin mcBar_by_The_MCR_Company.mcBar mcStatusBar 
  76.       Align           =   2  'Align Bottom
  77.       Height          =   285
  78.       Left            =   0
  79.       TabIndex        =   5
  80.       Top             =   3000
  81.       Width           =   8835
  82.       _ExtentX        =   15584
  83.       _ExtentY        =   503
  84.       Blocks          =   2
  85.       Block.BarLeft(1)=   0
  86.       Block.BarRight(1)=   90
  87.       Block.BorderStyle(1)=   2
  88.       Block.HPercentage(1)=   "90"
  89.       Block.VPercentage(1)=   "100"
  90.       Block.GradientStyle(1)=   6
  91.       Block.GradientColor(1)=   16777215
  92.       Block.Text(1)   =   "mcBar ActiveX control by The MCR Company"
  93.       BeginProperty Block.TextFont(1) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  94.          Name            =   "MS Sans Serif"
  95.          Size            =   8.25
  96.          Charset         =   0
  97.          Weight          =   700
  98.          Underline       =   0   'False
  99.          Italic          =   0   'False
  100.          Strikethrough   =   0   'False
  101.       EndProperty
  102.       Block.TextFont3D(1)=   4
  103.       Block.BarLeft(2)=   90
  104.       Block.BarRight(2)=   100
  105.       Block.BorderStyle(2)=   2
  106.       Block.HPercentage(2)=   "10"
  107.       Block.VPercentage(2)=   "100"
  108.       Block.Text(2)   =   "!long time!"
  109.       BeginProperty Block.TextFont(2) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  110.          Name            =   "Arial"
  111.          Size            =   8.25
  112.          Charset         =   0
  113.          Weight          =   400
  114.          Underline       =   0   'False
  115.          Italic          =   0   'False
  116.          Strikethrough   =   0   'False
  117.       EndProperty
  118.       Block.TextFont3D(2)=   1
  119.       Object.Height          =   285
  120.       Object.Width           =   8835
  121.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  122.          Name            =   "MS Sans Serif"
  123.          Size            =   8.25
  124.          Charset         =   0
  125.          Weight          =   700
  126.          Underline       =   0   'False
  127.          Italic          =   0   'False
  128.          Strikethrough   =   0   'False
  129.       EndProperty
  130.    End
  131.    Begin mcBar_by_The_MCR_Company.mcBar mcBar1 
  132.       Height          =   465
  133.       Index           =   1
  134.       Left            =   90
  135.       TabIndex        =   6
  136.       Top             =   1170
  137.       Width           =   7500
  138.       _ExtentX        =   13229
  139.       _ExtentY        =   820
  140.       Blocks          =   1
  141.       Block.BarLeft(1)=   0
  142.       Block.VPercentage(1)=   "50"
  143.       Block.Color(1)  =   16711680
  144.       Block.GradientColor(1)=   16777215
  145.       Block.Text(1)   =   "process is !h%! complete"
  146.       Block.TextColor(1)=   65408
  147.       BeginProperty Block.TextFont(1) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  148.          Name            =   "MS Sans Serif"
  149.          Size            =   12
  150.          Charset         =   0
  151.          Weight          =   700
  152.          Underline       =   0   'False
  153.          Italic          =   0   'False
  154.          Strikethrough   =   0   'False
  155.       EndProperty
  156.       Block.Picture(1)=   "Pictured Progress Bar.frx":019A
  157.       Block.PictureOffset(1)=   0
  158.       Block.PictureTile(1)=   1
  159.       Object.Height          =   465
  160.       Object.Width           =   7500
  161.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  162.          Name            =   "MS Sans Serif"
  163.          Size            =   8.25
  164.          Charset         =   0
  165.          Weight          =   400
  166.          Underline       =   0   'False
  167.          Italic          =   0   'False
  168.          Strikethrough   =   0   'False
  169.       EndProperty
  170.       GradientColor   =   12648447
  171.       PictureTile     =   3
  172.       PictureAlignment=   3
  173.    End
  174.    Begin mcBar_by_The_MCR_Company.mcBar mcBar1 
  175.       Height          =   915
  176.       Index           =   2
  177.       Left            =   90
  178.       TabIndex        =   8
  179.       Top             =   1980
  180.       Width           =   7500
  181.       _ExtentX        =   13229
  182.       _ExtentY        =   1614
  183.       Blocks          =   1
  184.       Block.BarLeft(1)=   0
  185.       Block.BarTop(1) =   80
  186.       Block.BarBottom(1)=   20
  187.       Block.VPercentage(1)=   "50"
  188.       Block.Color(1)  =   0
  189.       Block.GradientColor(1)=   16777215
  190.       Block.Text(1)   =   "process is !h%! complete"
  191.       Block.TextColor(1)=   65408
  192.       BeginProperty Block.TextFont(1) {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  193.          Name            =   "MS Sans Serif"
  194.          Size            =   12
  195.          Charset         =   0
  196.          Weight          =   700
  197.          Underline       =   0   'False
  198.          Italic          =   0   'False
  199.          Strikethrough   =   0   'False
  200.       EndProperty
  201.       Block.Picture(1)=   "Pictured Progress Bar.frx":042C
  202.       Block.PictureOffset(1)=   0
  203.       Block.PictureTile(1)=   1
  204.       Object.Height          =   915
  205.       Object.Width           =   7500
  206.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  207.          Name            =   "MS Sans Serif"
  208.          Size            =   8.25
  209.          Charset         =   0
  210.          Weight          =   400
  211.          Underline       =   0   'False
  212.          Italic          =   0   'False
  213.          Strikethrough   =   0   'False
  214.       EndProperty
  215.       GradientColor   =   12648447
  216.       Picture         =   "Pictured Progress Bar.frx":06BE
  217.       PictureTile     =   3
  218.       PictureAlignment=   3
  219.    End
  220.    Begin VB.Label Label1 
  221.       AutoSize        =   -1  'True
  222.       Caption         =   "Progress bar with background picture and block picture (horizontal tile):"
  223.       Height          =   195
  224.       Index           =   2
  225.       Left            =   90
  226.       TabIndex        =   9
  227.       Top             =   1710
  228.       Width           =   5010
  229.    End
  230.    Begin VB.Label Label1 
  231.       AutoSize        =   -1  'True
  232.       Caption         =   "Progress bar with block picture (horizontal tile):"
  233.       Height          =   195
  234.       Index           =   1
  235.       Left            =   90
  236.       TabIndex        =   4
  237.       Top             =   900
  238.       Width           =   3270
  239.    End
  240.    Begin VB.Label Label1 
  241.       AutoSize        =   -1  'True
  242.       Caption         =   "Progress bar with block picture (center right):"
  243.       Height          =   195
  244.       Index           =   0
  245.       Left            =   90
  246.       TabIndex        =   2
  247.       Top             =   90
  248.       Width           =   3150
  249.    End
  250. Attribute VB_Name = "frmPicturedProgressBar"
  251. Attribute VB_GlobalNameSpace = False
  252. Attribute VB_Creatable = False
  253. Attribute VB_PredeclaredId = True
  254. Attribute VB_Exposed = False
  255. Option Explicit
  256. Private Sub RunProgressBar(ctl As Control)
  257.    Dim i       As Integer
  258.    ctl.BlockBarLeft(1) = 0
  259.    For i = 0 To 100
  260.       ctl.BlockBarRight(1) = i
  261.       DoEvents
  262.    Next i
  263. End Sub
  264. Private Sub Command1_Click(Index As Integer)
  265.    RunProgressBar mcBar1(Index)
  266. End Sub
  267. Private Sub Form_Load()
  268.    mcStatusBar.TimerTimeEnabled = True
  269. End Sub
  270.